home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / WASHDC.CMD < prev   
Encoding:
Text File  |  1987-12-27  |  3.4 KB  |  200 lines
  1. ASSI S7"    "
  2. ASSI S1"WASHINGTON, DC  [202, 301, 703]"
  3. ASSI S0" "
  4. BEGIN:
  5. CLEA
  6. LOCA 3,0
  7. MESS"                         ╔══╡ WASH DC BBS NUMBERS ╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - Net Exchange         ║"
  10. MESS"                         ║  B - Info Tech Center     ║"
  11. MESS"                         ║  C - Fannie Mae           ║"
  12. MESS"                         ║  D - Loading Dock         ║"
  13. MESS"                         ║  E - Technical Info Ctr   ║"
  14. MESS"                         ║  F - VA Info Tech Center  ║"
  15. MESS"                         ║  G - Digital Data XCng    ║"
  16. MESS"                         ║  H - Telecommu BBS        ║"
  17. MESS"                         ║  I - Capitol PC Users Grp ║"
  18. MESS"                         ║  J - HQ, NASA             ║"
  19. MESS"                         ║  M - Manual Dial          ║"
  20. MESS"                         ║  Q - Return to MAIN menu  ║"
  21. MESS"                         ║                           ║"
  22. MESS"                         ╠═══════════════════════════╣"
  23. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  24. MESS"                         ║                           ║"
  25. MESS"                         ╚═══════════════════════════╝"
  26. LOCA 20,27
  27. GET S0
  28. TOP:
  29. FIND S0"A"
  30. IF FOUN
  31. ASSI S6"Net Exchange"
  32. ASSI S8"6893561"
  33. GOSU REDIALER
  34. ELSE
  35. ENDI
  36. FIND S0"B"
  37. IF FOUN
  38. ASSI S6"Information Tech Center"
  39. ASSI S8"2751050"
  40. GOSU REDIALER
  41. ELSE
  42. ENDI
  43. FIND S0"C"
  44. IF FOUN
  45. ASSI S6"Fannie Mae"
  46. ASSI S8"5377475"
  47. GOSU REDIALER
  48. ELSE
  49. ENDI
  50. FIND S0"D"
  51. IF FOUN
  52. ASSI S6"Loading Dock"
  53. ASSI S8"9219650"
  54. GOSU REDIALER
  55. ELSE
  56. ENDI
  57. FIND S0"E"
  58. IF FOUN
  59. ASSI S6"Technical Info Center"
  60. ASSI S8"5600979"
  61. GOSU REDIALER
  62. ELSE
  63. ENDI
  64. FIND S0"F"
  65. IF FOUN
  66. ASSI S6"VA Info Tech Center"
  67. ASSI S8"3762184"
  68. GOSU REDIALER
  69. ELSE
  70. ENDI
  71. FIND S0"G"
  72. IF FOUN
  73. ASSI S6"Digital Data Exchange"
  74. ASSI S8"3842587"
  75. GOSU REDIALER
  76. ELSE
  77. ENDI
  78. FIND S0"H"
  79. IF FOUN
  80. ASSI S6"Telecommunications BBS"
  81. ASSI S8"4789850"
  82. GOSU REDIALER
  83. ELSE
  84. ENDI
  85. FIND S0"I"
  86. IF FOUN
  87. ASSI S6"Capitol PC Users Group"
  88. ASSI S8"9498848"
  89. GOSU REDIALER
  90. ELSE
  91. ENDI
  92. FIND S0"J"
  93. IF FOUN
  94. ASSI S6"HQS, NASA"
  95. ASSI S8"6466197"
  96. GOSU REDIALER
  97. ELSE
  98. ENDI
  99. FIND S0"M"
  100. IF FOUN
  101. CLEA
  102. LOCA 5,20
  103. MESS"NUMBER TO DIAL:"
  104. LOCA 5,36
  105. ASSI S6"MANUAL DIAL"
  106. GET S8
  107. GOSU REDIALER
  108. ELSE
  109. ENDI
  110. FIND S0"Q"
  111. IF FOUN
  112. CLEA
  113. TRAN"!@!"
  114. WAIT"@"
  115. TRAN"D!"
  116. WAIT"@"
  117. CLEA
  118. LOCA 1,0
  119. PAUS 1
  120. EXEC"SELCITY.CMD"
  121. ELSE
  122. ENDI
  123. FIND S7"MORE"
  124. IF FOUN
  125. ASSI S7"    "
  126. GOTO TOP
  127. ELSE
  128. ENDI
  129. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  130. MESS"RETURNING TO MAIN MENU"
  131. ALAR
  132. ASSI S0"Q"
  133. GOTO TOP
  134. REDIALER:
  135. CLEA
  136. ISFI S6
  137. IF NOT SUCC
  138. LOCA 5, 35
  139. MESS"DIALING"
  140. MESS" "
  141. MESS S6
  142. MESS S8
  143. TRAN"I!"
  144. PAUS 1
  145. TRAN"ATZ!"
  146. WAIT"OK"
  147. TRAN"^E!"
  148. WAIT"READY"
  149. TRAN"D"
  150. TRAN S8
  151. TRAN"!"
  152. RGET S9
  153. RGET S9 80 40
  154. RGET S9 40 40
  155. RGET S9 40 40
  156. GOTMESS:
  157. FIND S9"BUSY"
  158. IF FOUN
  159. MESS S6
  160. MESS S8
  161. MESS"BUSY; GOING TO NEXT NUMBER"
  162. MESS"******************************************************************"
  163. ASSI S7"MORE"
  164. GOTO RTRN
  165. ENDI
  166. FIND S9"ANSWER TONE"
  167. IF FOUN
  168. SET PARI NONE
  169. SET DATA 8
  170. CLEA
  171. MESS"CONNECTED TO"
  172. MESS S8
  173. MESS S6
  174. MESS S1
  175. ALAR
  176. EXIT
  177. ELSE
  178. FIND S9"RINGING"
  179. IF FOUN
  180. RGET S9
  181. FIND S9"RINGING"
  182. IF FOUN
  183. LOG OPEN S6
  184. MESS"NO ANSWER - STILL RINGING"
  185. MESS S8
  186. MESS S6
  187. MESS S1
  188. LOG CLOSE
  189. TRAN"^C^D^C"
  190. MESS"****************************************************************"
  191. GOTO RTRN
  192. ELSE
  193. GOTO GOTMESS
  194. ENDI
  195. ENDI
  196. ENDI
  197. ENDI
  198. RTRN:
  199. RETURN
  200.